home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2007 December / PCWKCD1207B.iso / Faktury Express 5.94 PL - pelna wersja specjalna / setup.exe / {app} / Faktury5,1.exe / 0 / RCDATA / TDLG_WYKRES / TDLG_WYKRES.txt
Text File  |  2007-10-19  |  3KB  |  160 lines
  1. object Dlg_Wykres: TDlg_Wykres
  2.   Left = 229
  3.   Top = 203
  4.   BorderStyle = bsDialog
  5.   Caption = 'Ustawienia wykresu'
  6.   ClientHeight = 162
  7.   ClientWidth = 450
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   Position = poScreenCenter
  16.   Scaled = False
  17.   OnMouseMove = FormMouseMove
  18.   OnPaint = FormPaint
  19.   PixelsPerInch = 96
  20.   TextHeight = 13
  21.   object Label2: TLabel
  22.     Left = 24
  23.     Top = 48
  24.     Width = 145
  25.     Height = 26
  26.     Alignment = taCenter
  27.     Caption = 'spos∩┐╜b grupowania wykres∩┐╜w s∩┐╜upkowych:'
  28.     WordWrap = True
  29.   end
  30.   object Label1: TLabel
  31.     Left = 24
  32.     Top = 8
  33.     Width = 129
  34.     Height = 13
  35.     Caption = 'wybierz rok do zostawienia:'
  36.   end
  37.   object btnPodglad: TPanel
  38.     Left = 24
  39.     Top = 120
  40.     Width = 129
  41.     Height = 25
  42.     BevelOuter = bvNone
  43.     Caption = 'podgl∩┐╜d'
  44.     Color = 8257541
  45.     Font.Charset = DEFAULT_CHARSET
  46.     Font.Color = clWhite
  47.     Font.Height = -11
  48.     Font.Name = 'MS Sans Serif'
  49.     Font.Style = [fsBold]
  50.     ParentFont = False
  51.     TabOrder = 0
  52.     OnClick = btnPodgladClick
  53.   end
  54.   object btnDrukuj: TPanel
  55.     Left = 296
  56.     Top = 120
  57.     Width = 129
  58.     Height = 25
  59.     BevelOuter = bvNone
  60.     Caption = 'drukuj'
  61.     Color = 8257541
  62.     Font.Charset = DEFAULT_CHARSET
  63.     Font.Color = clWhite
  64.     Font.Height = -11
  65.     Font.Name = 'MS Sans Serif'
  66.     Font.Style = [fsBold]
  67.     ParentFont = False
  68.     TabOrder = 1
  69.     OnClick = btnPodgladClick
  70.   end
  71.   object BarType: TComboBox
  72.     Left = 24
  73.     Top = 76
  74.     Width = 145
  75.     Height = 21
  76.     ItemHeight = 13
  77.     TabOrder = 2
  78.     Text = 'ka∩┐╜dy osobno'
  79.     Items.Strings = (
  80.       'ka∩┐╜dy osobno'
  81.       'obok siebie'
  82.       'jeden na drugim'
  83.       'jeden na drugim (procentowo)')
  84.   end
  85.   object DBLookupComboBox1: TDBLookupComboBox
  86.     Left = 24
  87.     Top = 24
  88.     Width = 145
  89.     Height = 21
  90.     KeyField = 'EXTRACT YEAR FROM data_wy'
  91.     ListField = 'EXTRACT YEAR FROM data_wy'
  92.     ListSource = DataSource1
  93.     TabOrder = 3
  94.   end
  95.   object roczne: TCheckBox
  96.     Left = 240
  97.     Top = 24
  98.     Width = 201
  99.     Height = 17
  100.     Caption = 'roczne zestawienie'
  101.     Checked = True
  102.     State = cbChecked
  103.     TabOrder = 4
  104.   end
  105.   object zbiorczeSlupki: TCheckBox
  106.     Left = 240
  107.     Top = 52
  108.     Width = 201
  109.     Height = 17
  110.     Caption = 'zestawienie zbiorcze wykres s∩┐╜upkowy'
  111.     TabOrder = 5
  112.   end
  113.   object zbiorczeLinie: TCheckBox
  114.     Left = 240
  115.     Top = 80
  116.     Width = 201
  117.     Height = 17
  118.     Caption = 'zestawienie zbiorcze wykres liniowy'
  119.     TabOrder = 6
  120.   end
  121.   object Query1: TQuery
  122.     Active = True
  123.     SQL.Strings = (
  124.       'select distinct extract(year from data_wyst) from faktury')
  125.     Left = 184
  126.     Top = 72
  127.   end
  128.   object DataSource1: TDataSource
  129.     DataSet = Query1
  130.     Left = 216
  131.     Top = 72
  132.   end
  133.   object Groupings: TQuery
  134.     SQL.Strings = (
  135.       'select netto,wartoscVAT,brutto,'
  136.       'extract(month from data_wyst) as miesiac,data_wyst'
  137.       'from faktury'#9)
  138.     Left = 184
  139.     Top = 8
  140.   end
  141.   object Query2: TQuery
  142.     SQL.Strings = (
  143.       'select '
  144.       'sum(x.netto) as suma,x.miesiac'
  145.       'from '
  146.       '"grouping.sql" x'
  147.       'where extract(year from data_wyst) =:rok'
  148.       'group by x.miesiac')
  149.     Left = 216
  150.     Top = 8
  151.     ParamData = <
  152.       item
  153.         DataType = ftInteger
  154.         Name = 'rok'
  155.         ParamType = ptUnknown
  156.         Value = 0
  157.       end>
  158.   end
  159. end
  160.